/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / Extras / TextPipe / textpipepro-cr.exe / {app} / mainframe / process undelimited records.fll

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 54 50 46 30 0b 54 46 69 | 6c 74 65 72 4c 69 73 74 |TPF0.TFi|lterList|
|00000010| 00 0a 46 69 6c 74 65 72 | 4c 69 73 74 01 08 54 56 |..Filter|List..TV|
|00000020| 65 72 73 69 6f 6e 00 07 | 56 65 72 73 69 6f 6e 02 |ersion..|Version.|
|00000030| 44 06 a7 0d 0a 54 68 69 | 73 20 69 73 20 61 20 54 |D....Thi|s is a T|
|00000040| 65 78 74 50 69 70 65 20 | 50 72 6f 20 66 69 6c 74 |extPipe |Pro filt|
|00000050| 65 72 20 66 69 6c 65 2c | 20 61 6e 20 61 70 70 6c |er file,| an appl|
|00000060| 69 63 61 74 69 6f 6e 20 | 66 6f 72 20 6d 61 6e 69 |ication |for mani|
|00000070| 70 75 6c 61 74 69 6e 67 | 20 61 6e 64 20 65 78 74 |pulating| and ext|
|00000080| 72 61 63 74 69 6e 67 20 | 74 65 78 74 20 66 69 6c |racting |text fil|
|00000090| 65 73 20 6f 66 20 61 6e | 79 20 73 69 7a 65 2e 20 |es of an|y size. |
|000000a0| 54 6f 20 66 69 6e 64 20 | 6f 75 74 20 6d 6f 72 65 |To find |out more|
|000000b0| 20 67 6f 20 74 6f 20 68 | 74 74 70 3a 2f 2f 77 77 | go to h|ttp://ww|
|000000c0| 77 2e 63 72 79 73 74 61 | 6c 73 6f 66 74 77 61 72 |w.crysta|lsoftwar|
|000000d0| 65 2e 63 6f 6d 2e 61 75 | 0d 0a 06 00 06 00 0c 44 |e.com.au|.......D|
|000000e0| 01 00 00 31 32 33 34 35 | 36 37 38 39 30 31 32 0d |...12345|6789012.|
|000000f0| 0a 59 6f 75 20 63 61 6e | 20 74 79 70 65 20 73 61 |.You can| type sa|
|00000100| 6d 70 6c 65 20 74 65 78 | 74 20 69 6e 20 0d 0a 74 |mple tex|t in ..t|
|00000110| 68 65 20 54 72 69 61 6c | 20 52 75 6e 20 49 6e 70 |he Trial| Run Inp|
|00000120| 75 74 20 41 72 65 61 20 | 74 6f 0d 0a 74 65 73 74 |ut Area |to..test|
|00000130| 20 69 66 20 79 6f 75 72 | 20 66 69 6c 74 65 72 20 | if your| filter |
|00000140| 69 73 20 77 6f 72 6b 69 | 6e 67 20 0d 0a 70 72 6f |is worki|ng ..pro|
|00000150| 70 65 72 6c 79 2e 20 43 | 6c 69 63 6b 20 74 68 65 |perly. C|lick the|
|00000160| 20 5b 54 72 69 61 6c 20 | 52 75 6e 5d 0d 0a 62 75 | [Trial |Run]..bu|
|00000170| 74 74 6f 6e 20 62 65 6c | 6f 77 20 74 6f 20 73 74 |tton bel|ow to st|
|00000180| 61 72 74 20 74 68 65 20 | 74 65 73 74 2e 0d 0a 0d |art the |test....|
|00000190| 0a 54 6f 20 63 6c 65 61 | 72 20 74 68 69 73 20 74 |.To clea|r this t|
|000001a0| 65 78 74 2c 20 6a 75 73 | 74 20 72 69 67 68 74 20 |ext, jus|t right |
|000001b0| 0d 0a 63 6c 69 63 6b 20 | 69 74 20 61 6e 64 20 73 |..click |it and s|
|000001c0| 65 6c 65 63 74 20 27 43 | 6c 65 61 72 20 45 6e 74 |elect 'C|lear Ent|
|000001d0| 69 72 65 20 0d 0a 46 69 | 65 6c 64 27 20 66 72 6f |ire ..Fi|eld' fro|
|000001e0| 6d 20 74 68 65 20 6d 65 | 6e 75 2e 20 4d 6f 73 74 |m the me|nu. Most|
|000001f0| 20 0d 0a 6f 66 20 54 65 | 78 74 50 69 70 65 27 73 | ..of Te|xtPipe's|
|00000200| 20 66 69 65 6c 64 73 20 | 68 61 76 65 20 0d 0a 73 | fields |have ..s|
|00000210| 69 6d 69 6c 61 72 20 68 | 65 6c 70 66 75 6c 20 6d |imilar h|elpful m|
|00000220| 65 6e 75 73 2e 0d 0a 01 | 06 39 3c 41 64 64 20 66 |enus....|.9<Add f|
|00000230| 69 6c 65 73 20 74 6f 20 | 74 68 69 73 20 66 69 6c |iles to |this fil|
|00000240| 65 20 6c 69 73 74 20 62 | 79 20 64 72 61 67 67 69 |e list b|y draggi|
|00000250| 6e 67 20 61 6e 64 20 64 | 72 6f 70 70 69 6e 67 3e |ng and d|ropping>|
|00000260| 7c 4e 49 06 1f 3c 74 68 | 65 6d 20 66 72 6f 6d 20 ||NI..<th|em from |
|00000270| 57 69 6e 64 6f 77 73 20 | 45 78 70 6c 6f 72 65 72 |Windows |Explorer|
|00000280| 3e 7c 4e 49 06 03 7c 4e | 41 00 08 06 0c 74 65 78 |>|NI..|N|A....tex|
|00000290| 74 70 69 70 65 2e 6c 6f | 67 09 03 f4 01 00 00 02 |tpipe.lo|g.......|
|000002a0| 00 09 14 54 46 69 6c 74 | 65 72 43 6f 6d 6d 65 6e |...TFilt|erCommen|
|000002b0| 74 4f 62 6a 65 63 74 00 | 07 65 6e 61 62 6c 65 64 |tObject.|.enabled|
|000002c0| 09 0a 4c 69 73 74 4f 62 | 6a 65 63 74 09 00 00 02 |..ListOb|ject....|
|000002d0| 01 08 0c 54 49 6e 70 75 | 74 4f 62 6a 65 63 74 00 |...TInpu|tObject.|
|000002e0| 07 65 6e 61 62 6c 65 64 | 09 0b 49 6e 70 75 74 4f |.enabled|..InputO|
|000002f0| 62 6a 65 63 74 09 08 02 | 01 02 01 02 64 08 08 03 |bject...|....d...|
|00000300| 00 04 00 00 02 01 08 0e | 54 43 6f 6d 6d 65 6e 74 |........|TComment|
|00000310| 4f 62 6a 65 63 74 00 07 | 65 6e 61 62 6c 65 64 09 |Object..|enabled.|
|00000320| 0d 43 6f 6d 6d 65 6e 74 | 4f 62 6a 65 63 74 09 06 |.Comment|Object..|
|00000330| 5d 54 68 69 73 20 66 69 | 6c 74 65 72 20 75 73 65 |]This fi|lter use|
|00000340| 73 20 61 20 56 42 53 63 | 72 69 70 74 20 66 69 6c |s a VBSc|ript fil|
|00000350| 74 65 72 20 74 6f 20 70 | 72 6f 63 65 73 73 20 75 |ter to p|rocess u|
|00000360| 6e 64 65 6c 69 6d 69 74 | 65 64 20 72 65 63 6f 72 |ndelimit|ed recor|
|00000370| 64 73 20 69 65 20 72 65 | 63 6f 72 64 73 20 6f 66 |ds ie re|cords of|
|00000380| 20 6b 6e 6f 77 6e 20 6c | 65 6e 67 74 68 2e 00 00 | known l|ength...|
|00000390| 02 01 08 0d 54 53 63 72 | 69 70 74 4f 62 6a 65 63 |....TScr|iptObjec|
|000003a0| 74 00 07 65 6e 61 62 6c | 65 64 08 0c 53 63 72 69 |t..enabl|ed..Scri|
|000003b0| 70 74 4f 62 6a 65 63 74 | 08 0c 9c 03 00 00 27 50 |ptObject|......'P|
|000003c0| 72 6f 63 65 73 73 20 75 | 6e 64 65 6c 69 6d 69 74 |rocess u|ndelimit|
|000003d0| 65 64 20 74 65 78 74 20 | 6f 66 20 61 20 73 70 65 |ed text |of a spe|
|000003e0| 63 69 66 69 63 20 72 65 | 63 6f 72 64 20 6c 65 6e |cific re|cord len|
|000003f0| 67 74 68 0d 0a 0d 0a 63 | 6f 6e 73 74 20 72 65 63 |gth....c|onst rec|
|00000400| 6f 72 64 4c 65 6e 67 74 | 68 20 3d 20 34 0d 0a 0d |ordLengt|h = 4...|
|00000410| 0a 27 4f 75 72 20 72 65 | 63 6f 72 64 20 62 75 66 |.'Our re|cord buf|
|00000420| 66 65 72 0d 0a 64 69 6d | 20 61 0d 0a 0d 0a 0d 0a |fer..dim| a......|
|00000430| 27 74 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 70 |'this fu|nction p|
|00000440| 72 6f 63 65 73 73 65 73 | 20 74 68 65 20 72 65 63 |rocesses| the rec|
|00000450| 6f 72 64 27 73 20 74 65 | 78 74 2c 20 61 6e 64 20 |ord's te|xt, and |
|00000460| 72 65 74 75 72 6e 73 20 | 74 68 65 20 70 72 6f 63 |returns |the proc|
|00000470| 65 73 73 65 64 20 72 65 | 73 75 6c 74 0d 0a 66 75 |essed re|sult..fu|
|00000480| 6e 63 74 69 6f 6e 20 70 | 72 6f 63 65 73 73 52 65 |nction p|rocessRe|
|00000490| 63 6f 72 64 28 20 72 65 | 63 6f 72 64 20 29 0d 0a |cord( re|cord )..|
|000004a0| 0d 0a 20 20 27 79 6f 75 | 20 63 61 6e 20 70 75 74 |..  'you| can put|
|000004b0| 20 61 6e 79 20 6b 69 6e | 64 20 6f 66 20 70 72 6f | any kin|d of pro|
|000004c0| 63 65 73 73 69 6e 67 20 | 79 6f 75 20 6c 69 6b 65 |cessing |you like|
|000004d0| 20 68 65 72 65 0d 0a 20 | 20 70 72 6f 63 65 73 73 | here.. | process|
|000004e0| 52 65 63 6f 72 64 20 3d | 20 22 5b 22 20 26 20 72 |Record =| "[" & r|
|000004f0| 65 63 6f 72 64 20 26 20 | 22 5d 22 0d 0a 0d 0a 65 |ecord & |"]"....e|
|00000500| 6e 64 20 66 75 6e 63 74 | 69 6f 6e 0d 0a 0d 0a 0d |nd funct|ion.....|
|00000510| 0a 66 75 6e 63 74 69 6f | 6e 20 70 72 6f 63 65 73 |.functio|n proces|
|00000520| 73 4c 69 6e 65 28 6c 69 | 6e 65 2c 20 45 4f 4c 29 |sLine(li|ne, EOL)|
|00000530| 0d 0a 0d 0a 20 20 61 20 | 3d 20 61 20 26 20 6c 69 |....  a |= a & li|
|00000540| 6e 65 20 26 20 45 4f 4c | 0d 0a 0d 0a 20 20 72 65 |ne & EOL|....  re|
|00000550| 73 20 3d 20 22 22 0d 0a | 20 20 77 68 69 6c 65 20 |s = ""..|  while |
|00000560| 6c 65 6e 28 61 29 20 3e | 3d 20 72 65 63 6f 72 64 |len(a) >|= record|
|00000570| 4c 65 6e 67 74 68 20 0d | 0a 0d 0a 20 20 20 20 72 |Length .|...    r|
|00000580| 65 73 20 3d 20 72 65 73 | 20 26 20 70 72 6f 63 65 |es = res| & proce|
|00000590| 73 73 52 65 63 6f 72 64 | 28 20 4c 65 66 74 28 20 |ssRecord|( Left( |
|000005a0| 61 2c 20 72 65 63 6f 72 | 64 4c 65 6e 67 74 68 20 |a, recor|dLength |
|000005b0| 29 20 29 0d 0a 20 20 20 | 20 61 20 3d 20 4d 69 64 |) )..   | a = Mid|
|000005c0| 28 20 61 2c 20 72 65 63 | 6f 72 64 4c 65 6e 67 74 |( a, rec|ordLengt|
|000005d0| 68 20 2b 20 31 20 29 0d | 0a 0d 0a 20 20 77 65 6e |h + 1 ).|...  wen|
|000005e0| 64 0d 0a 20 20 70 72 6f | 63 65 73 73 4c 69 6e 65 |d..  pro|cessLine|
|000005f0| 20 3d 20 72 65 73 0d 0a | 0d 0a 65 6e 64 20 66 75 | = res..|..end fu|
|00000600| 6e 63 74 69 6f 6e 0d 0a | 0d 0a 0d 0a 66 75 6e 63 |nction..|....func|
|00000610| 74 69 6f 6e 20 65 6e 64 | 46 69 6c 65 28 29 0d 0a |tion end|File()..|
|00000620| 0d 0a 20 20 72 65 73 20 | 3d 20 22 22 0d 0a 20 20 |..  res |= ""..  |
|00000630| 77 68 69 6c 65 20 6c 65 | 6e 28 61 29 20 3e 3d 20 |while le|n(a) >= |
|00000640| 72 65 63 6f 72 64 4c 65 | 6e 67 74 68 20 0d 0a 0d |recordLe|ngth ...|
|00000650| 0a 20 20 20 20 72 65 73 | 20 3d 20 72 65 73 20 26 |.    res| = res &|
|00000660| 20 70 72 6f 63 65 73 73 | 52 65 63 6f 72 64 28 20 | process|Record( |
|00000670| 4c 65 66 74 28 20 61 2c | 20 72 65 63 6f 72 64 4c |Left( a,| recordL|
|00000680| 65 6e 67 74 68 20 29 20 | 29 0d 0a 20 20 20 20 61 |ength ) |)..    a|
|00000690| 20 3d 20 4d 69 64 28 20 | 61 2c 20 72 65 63 6f 72 | = Mid( |a, recor|
|000006a0| 64 4c 65 6e 67 74 68 20 | 2b 20 31 20 29 0d 0a 0d |dLength |+ 1 )...|
|000006b0| 0a 20 20 77 65 6e 64 0d | 0a 20 20 65 6e 64 46 69 |.  wend.|.  endFi|
|000006c0| 6c 65 20 3d 20 72 65 73 | 20 26 20 61 0d 0a 0d 0a |le = res| & a....|
|000006d0| 65 6e 64 20 66 75 6e 63 | 74 69 6f 6e 0d 0a 0d 0a |end func|tion....|
|000006e0| 0d 0a 73 75 62 20 73 74 | 61 72 74 4a 6f 62 28 29 |..sub st|artJob()|
|000006f0| 0d 0a 65 6e 64 20 73 75 | 62 0d 0a 0d 0a 0d 0a 73 |..end su|b......s|
|00000700| 75 62 20 65 6e 64 4a 6f | 62 28 29 0d 0a 65 6e 64 |ub endJo|b()..end|
|00000710| 20 73 75 62 0d 0a 0d 0a | 0d 0a 66 75 6e 63 74 69 | sub....|..functi|
|00000720| 6f 6e 20 73 74 61 72 74 | 46 69 6c 65 28 29 0d 0a |on start|File()..|
|00000730| 20 20 61 20 3d 20 22 22 | 0d 0a 20 20 73 74 61 72 |  a = ""|..  star|
|00000740| 74 46 69 6c 65 20 3d 20 | 22 22 0d 0a 65 6e 64 20 |tFile = |""..end |
|00000750| 66 75 6e 63 74 69 6f 6e | 0d 0a 06 08 56 42 53 63 |function|....VBSc|
|00000760| 72 69 70 74 02 1e 00 00 | 02 01 09 0d 54 4e 75 6d |ript....|....TNum|
|00000770| 62 65 72 4f 62 6a 65 63 | 74 00 07 65 6e 61 62 6c |berObjec|t..enabl|
|00000780| 65 64 09 0c 4e 75 6d 62 | 65 72 4f 62 6a 65 63 74 |ed..Numb|erObject|
|00000790| 09 02 0b 02 04 00 00 02 | 02 08 0d 54 53 74 72 69 |........|...TStri|
|000007a0| 6e 67 4f 62 6a 65 63 74 | 00 07 65 6e 61 62 6c 65 |ngObject|..enable|
|000007b0| 64 09 0c 53 74 72 69 6e | 67 4f 62 6a 65 63 74 09 |d..Strin|gObject.|
|000007c0| 02 00 06 01 5b 06 00 09 | 00 00 02 02 08 0d 54 53 |....[...|......TS|
|000007d0| 74 72 69 6e 67 4f 62 6a | 65 63 74 00 07 65 6e 61 |tringObj|ect..ena|
|000007e0| 62 6c 65 64 09 0c 53 74 | 72 69 6e 67 4f 62 6a 65 |bled..St|ringObje|
|000007f0| 63 74 09 02 03 06 01 5d | 06 00 09 00 00 02 01 08 |ct.....]|........|
|00000800| 0d 54 4f 75 74 70 75 74 | 4f 62 6a 65 63 74 00 07 |.TOutput|Object..|
|00000810| 65 6e 61 62 6c 65 64 09 | 0c 4f 75 74 70 75 74 4f |enabled.|.OutputO|
|00000820| 62 6a 65 63 74 09 02 00 | 09 02 01 08 06 04 2e 74 |bject...|.......t|
|00000830| 78 74 08 06 10 43 3a 5c | 4d 79 20 44 6f 63 75 6d |xt...C:\|My Docum|
|00000840| 65 6e 74 73 5c 09 06 14 | 63 3a 5c 6d 65 72 67 65 |ents\...|c:\merge|
|00000850| 66 69 6c 65 6e 61 6d 65 | 2e 74 78 74 08 08 00 00 |filename|.txt....|
|00000860| 00 02 00 00 00          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+